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Public Function findCryscal{ _ 

ByVal imgPointer As Long, _ 

Byval pixResolution As Double, _ 

ByRef reeuitArray ( ) As variant, _ 

Optional ByVal displayResults Ae Boolean « True, _ 

Optional ByVal minSize As Integer = -1, _ 

Optional ByVal maxSize As Integer = -1, _ 

Optional Byval ROlcoordFlag As Double - 0 _ 

) As Boolean 
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f indCryatal 
created 3/26/Cl 
by Mandel Mickley 

This function returns the x,y position^} of crystal (s). found within an image. 
-* The position is returned as a dimensional offset from the center of the mage. 
• * Units for each position are in mm. 
i a********************************************* 
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PCT_HEAN 
DILATE = 5 
ERODE - 1C 
DARK INT * 0 
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Const LIGHT INT - 255 
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Const MAX_BL0B6 - 255 
Const DTJC « 20 
Const DT_Y - 20 
Const DT_SENS = 38 
Const DT~RANGE ■ 17 
Const DT LEVEL - SI 
Const DT^SMOOTHS ■ 1 



'intensity. setting given to all pixels that are under the thresh 

■intensity setting given to all pixels that are above the thresh 

' maximum number of blobs to hold data for 

<| of x pixels per section of image to threshold 

■# of y pixels per section of image to threshold 

•percent of pixels in the region separated by a minimum RAKGE 

f # of gray levels separating high and low intensities 

'percent bias high or low of threshold 

»# of passes for smoothing of the sub region thresholds 



Dim imG As Long 
Dim imgl As Long 
Dim img2 As Long 
Dim imgTempl As Long 
Dim imgTeiqp2 As Long 
Dim Error As CInspLib_ErrorCodee 
Dim threshold As Double 
Dim il As Boolean 
Dim numBlobs AS Integer 
Dim blbParms As Long 
Dim blbResults As Long 
Dim grBnv As Long 
Dim imx As Integer 
Dim iray As integer 
Dim blbxl As Double 
Dim blbx2 As Double 
Dim blbyl As Double 
Dim blby2 As Double 
Dim bbperim As Double 
Dim bbdrop As Double 
Dim idrop As Integer 
Dim xdrop As Double 
Dim ydrop As Double 
Dim dxl As Double 
Dim dyl Ae Double 
Dim dx As Double 
Dim dy As Double 
Dim i As Integer 
Dim b As Integer 
Dim value (8) Ae Variant 
Dim edgeBlobs As Integer 
Dim maxblob As Integer 

'threshold image 
If imgPointer <> 0 Then 



number of blobs found 

pointer to structure for blob parameters 
pointer to structure fof blob results 
pointer to structure for graphics environment 
size of image in the x direction 
size of image in the y direction 
left pixel pos of blob 
right pixel pos of blob 
'top pixel pos of blob 
'bottom pixel pos of blob 
'bounding box perimeter 
'bounding box perimeter of zhe drop 
'index of blob representing the drop 
'x position cf drop 
'y position of drop 
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'create duplicate image tc work with 
imgl * imjiuplicate(ingPoiaMr) 
img2 • im~dup(imgPointer) 
il ■ True 

Else 

findCryatal - FalBe 
Error - RV_BAD IMG_PT3 

Err. Raise Error, , "invalid image pointer" 
Exit Function 
End If 

imgTempl = im_dupl i cat e (imgl) 

For 1 s 1 To ERODE 
If il Then 

Error = tnvt_erode (imgl, img2> 
il m False "~ 
imG ■ img2 

Else 

Error ■ mvt_erode (img2 , imgl) 
il s True 
imG - imgl 
End If 

If Error «> IM_0K Then 

Err .Raise Error, , "Failed dilation of image" 

Goto errorLbl 
End If 
Next i 

For i = 1 To DILATE 
If il Then 

Error - mvt_dilate (imgl , img2) 
il = False 
itnO =» irog2 

Else 

Error * nrvt_dilate(img2, imgl) 
il - True 
iraG - imgl 
End If 

If Error <> IM OK Then 

Err. Raise Error, , "Failed erosion of image" 

GoTo errorLbl 
End If 
Next i 

Error « mvt_thresh_ 3 t (imG, DTJC, DTY, DT_SENS , DT_RANGE , DT^LEVEL, DT^SMOOTHS) 
If Error <>~IM_0K Then 

Err. Raise Error, , "Failed to threshold image" 

QoTo errorLbl 
End If 

'allocate blob structures 
blbParms - mvt_blab_crea-e_paranifl (Error) 
If Error <> IM~0K Then , ^ 

Srr. Raise Error, , "Failed allocation of blob parameters 

GoTo errorLbll 
End If 

blbResulte « rtrvt.blob^raate^resultsdviAX^BLOBS, False, Error] 
If Error <> IM OK Then 

Err. Raise Error, , "Failed allocation of blob results" 

GoTo errorLbl2 
End If 

•allocate graphics structures 
grEnv = gr_create_env(imG) 
If grEnv = 0 Then" 

Error = RV BAD_IMG_PTR 

Err. Raise Error, , "Could not generate graphics environment 
GoTo errarLbl3 



r 
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End If 

•set blob parameters 

mvt blob set min^area blb?arms, minSize 
mv t~b lob~s e t~max_a r e a blbPanriB , tnaxSize 

Error- 1 *? blob^f inddmG, blbParrce, blbReaults, ROIcoordFlag] 
If Error <>~IM_0K Then , 

Err. Raise Error, , "Failed blob analysis 

GoTo errorLbl3 
Bnd If 

'get the total number of blobe found 
nuniBloba * TTrvt_blob_get_nutn_found{blbRe8ults) 

ReDim resultArray (numBlobs r 8) 

imx = im_get_dx(imG) - 5 
imy - im_get"dy timG) - 5 

For b - 0 To numBlobs 

blbxi * mvt blcb_get_xfirst (blbResulta, b) 
blbx2 * mvt"blob get xmaxtblbResults, b) 
blbxl = blbxl - Tblbx2 - blbxl} 
blbyi - mvt blob_get_yf irst (blbReaults, b) 
blby2 * Trvtlblob.getjnnaxtblbResults, b) 

If blbxl > 5 Then 

IE blbx2 < imx Then 
If blbyi > 5 Then 

If blby2 < imy Then 

bbperim = 2 * (blbx2 - blbxl) + 2 * (r»lby2 - blbyi) 
value (0) a bbperim 
dxl - blbxl 
value <7) ■ dxl 
dyl - blbyi 
value (8) = dyl 
dx - blfcx2 - blbxl 
value (5) - dx 
dy « blby2 - blbyi 
value (6) « dy 
xdrop - (dx / 2) + dxl 
value {3) « xdrop 

valued) - (xdrop - (imx / 2) ) * pixResolution 
ydrop m {dy / 2} + dyl 
value (4) o ydrop 

value (2) - (ydrop - (imy / 2) ) * pixResolution 
sortAdd value, resultArray, False 

Else 

edgeBlobs = edgeBlobs + 1 
End If 

Else 

edge Blob 3 - edgeBlobs +1 
End If 

Else 

edgeBlobs = edgeBlobs + 1 
Bnd If 

Else 

edgeBlobs ■ edgeBlobs + 1 
End If 

Next b 

gr color grEnv, 128 

gr"circle imG, grEnv, resultArray 1 0 , 3), re suit Array (0 , A\ , 15 (resultArr 
gr"vectext imG ; grEnv, resultArray (0, 3) + 20, resultArray i0, 4), 15, 0, fi-r .Round (resultArr 
ay{0, I))) + ", " + Str (Round (resultArray (C , 4))) v<ocnUirr , 
grjectangle imG, grEnv, resultArray (0, 7), resultArray <0 , 8) , resultArray (0 , 5), resultArra 
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y<o, 6) 

If dieplayReeults Then 

mvt_copy imG, imgPointer 
Snd If 

1 clean up 

'deallocate blob structures 
mvt_blob_delete^params blbFarras 
mvt~blob~delete_results blbResults 

'deallocate graphics structures 
gr_delete_env grEnv 

im_delete imgl 
inTdelete img2 
inTdelete imgTempl 

'return results 
findCrystal « True 

Exit Function 



errorLbl3 ; 

•deallocate graphics structures 
gr_delete_env grEnv 

errorLbl2 : 

'deallocate blob structures 
mrt_blobjielete_re8ult& blbResults 

errorLbll: 

1 deallocate blob structures 
mvt_blob_delete_params blbParms 

errorlibl : 

•delete images used for processing 
irn_delete imgl 
im"delete img2 

findCrystal = False 

End Function 



